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| 
3 1 ie ZTITLE "EDTSCHMFINSTR = search for a specific string’ 
; ¢ 0 § MODULE EDTSCHMFINSTR ( ! Search, tor F- 8 Spectt ic string | 
: i ta JDENT = 'v04-000' HMF INSTR -BLI Edit: JBS1007 
3 5 005 1 BEGIN 
; 6 8008 7% 
: 4 s'4'44 \ Cpanel seeraneg meen pears nati rmmmar ser eae } 
; ‘® ® | 
3 9 0009 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 8 * 
; 10 0010 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * | 
; 13 pot) : ? ALL RIGHTS RESERVED * 
P > * 
: ig $8 1 !* THIS SOFTWARE aS FURNISHED UNDER A LICENSE AND MAY BE USED AND gt ba * 
; 0014 1 !* ONLY IN ACCORDANCE WITH TH ERM F SUCH LICENSE AND WITH THE * 
: 15 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
: 16 0016 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
3 17 0017 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: 18 Bats : * TRANSFERRED. * 
; He * 
; $0 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
: 1 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * | 
; $§ poss : pe CORPORATION. * | 
: 'e * 
: 24 boSe 1 !'* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; 25 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
; @ 0026 1 !* * | 
;. a 0027 1 !* a 
: 28 0028 1 area eee 
; a 0029 1! 
3 $6 0030 1 
aa. 0031 1 !++ 
; $4 itt) 1! FACILITY: EDT -=- The DEC Standard Editor 
. & 0033 1: 
; | «634 0034 1 ! ABSTRACT: 
,;. #9 0035 1! 
3 $$ te) : This module searches text for a specific string. 
5 HS +4 : ENVIRONMENT: Runs at any access mode - AST reentrant 
; re nt : AUTHOR: Bob Kushlis, CREATION DATE: Unknown 
5; & 0042 1 ! MODIFIED BY: 
. . 63 0043 1! 
3 (44 044 1 | 1-001 = Original. DUS 04-Feb-1981. This module was created b 
: 645 045 1! eutrecs ing the routine EDTS$STR SEACRS from module CHANGE.BLI. 
: 46 0046 1! 1-002 - Regular zed headers. {BS ¢ 27-Feb-1981 
cae 0047 1 ! 1-003 = Fix module name. JBS 51981 
: 68 0048 1 ! 1-004 - Change return value on backwards search with search end set. SMB 27-Oct-1981 
: #2349 0049 1 | 1-005 - Set a flag if control C actually aborts S souethin JBS 24-May-1982 
; 0050 1 ! 1-006 - Return a zero if string not found. 1 
; 3} 0032 ; a 1-007 - Remove EDT$$G_LN_NO for new screen Bw A logic. JBS 29-Sep-1982 
: 53 0053 1 
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EDTSCHMFINSTR EDTSCHMFINSTR = search for a specific strin 1b-se -1984 56:28 AX-11 Bliss-32 V4.0-74 P 
V04=000 Declarations . 9 J28SR18BS §3:38:9F = FART Bh ss ie ve or ree age 5 
; 5 0035 } XSBTTL ‘Declarations’ 
: 056 1 | TABLE OF CONTENTS: 
3 $25 . % 
3 f3 1 
4 a4 ! REQUIRE "EDTSRC: TRAROUNAM'; 
: 0499 1 FORWARD ROUTINE 
: fa } EDTSSSTR_SEACMD; ! Search for a specific string 
3 206 1! 
3 23 1 ! INCLUDE FILES: 
3 06 1! 
5 0505 1 
; 0506 1 REQUIRE "EDTSRC:EDTREQ'; 
3 0641 1 
; O64g 1 | 
; 0643 1 | MACROS: 
3 0644 1! | 
3 0645 1! NONE 
3 0646 1! 
3 0647 1 ! EQUATED SYMBOLS: | 
: 0648 1! 
3 0649 1! NONE 
3 0650 1! 
; 0651 1 ! OWN STORAGE: 
3 0652 1! 
3 065 72 NONE 
; 0654 1! 
: 0655 1 ! EXTERNAL REFERENCES: 
; 0656 1! f 
3 0657 1! In the routine 
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corecvew insta ED 
v04- EDTSSSTR_SEACMD = search for a specific string 14-Sep-19 EDT. SRCICHMF 
; 6 


ZSBTTL "EDTSSSTR_SEACMD = search for a specific string’ 


W—O0OR we 
= 


} 
| 
:; 89 659 1 | ; 
; 660 1 GLOBAL ROUTINE EDTSS$STR_SEACMD ( ! Search for a specific string ° 
; Vi 661 1 ADDR, : address of the model string ‘ 
; F bee 1 LEN, ' model string's length : ; 
ES | 65 1 ™ ! move a character before beginning ‘ 
> 9% 0664 1 Dir i direction of the search : 
.* 2 665 1 )= ‘ 
; *© 666 1 ‘ 
; 0667 1 !++ ; 
: 38 208 : FUNCTIONAL DESCRIPTION: : 
; 100 670 1! This routine searches either forward or backward from the current ; 
: 19) bee) : position looking for a specific string. ‘ 
; 198 067 1 ! FORMAL PARAMETERS: ‘ 
; 104 0674 1! ; 
; 105 0675 1! ADDR the address of the string to find ‘ 
; 106 0676 1! LEN the Length of the nee . 
; 107 0677 1! indicates whether or not we should move a character before beginning. : 
; 108 0678 1! DIR the direction of the search. ; 
: 109 0679 1! , 
: 110 0680 1 ! IMPLICIT INPUTS: : 
361711 0681 1! : 
; 1g bos 1! EDTS$A_US_ENT : 
3611 0683 1! EDT$$G_SEA_BEG | : 
> (114 06 1! EDT$$G_SEA_8NDD : 
3: 6115 0685 1! EDTS$T_LN_BUF 3 
: (116 0686 1! EDTSSA_LN_PTR 3 
i. Sar 0687 1! EDTSS$A_LN_END : 
: 118 0688 1 | ; 
3; 199 0689 1 ! IMPLICIT OUTPUTS: | 
: 120 0690 1! 
3; 121 0691 1! EDTS$A_CUR_BUF 
3 \$¢ 0692 1! EDTSSA_LN_PTR 
c > oe 0693 1! EDTS$$G_CC_DONE 
: 124 0694 1! 
3; 125 0695 1 ! ROUTINE VALUE: | 
: 126 0696 1! : 
3 44 9944 ' 1 is returned if the string is found, 0 if not, 2 if search aborted by control C. 
s 144 0699 1 ! SIDE EFFECTS: | 
: 130 0700 1! 
; 131 344 gz NONE 
. 9 ; 07 ; 1! 
, i 0703 1 !-- 
s 136 0704 1 
3 «6139 $45 BEGIN 
; 136 0706 
ot. oor tht EXTERNAL ROUTINE 
; «138 708 EDTSSCHK_CC ! Check to see if a Cray /C has been typed 
; «139 3444 EDTS$GET~TXTLN, ' Get current Line in Line buffer 
; 140 710 EDTSSCS_CEFT ! Move left a character 
> 141 711 EDTSS$CS-RIGHT, i Move right a character 
; 148 218 EDTS$CS-UP, i Move up a Line Be ’ | 
; 14 71 EDTSSTST_ONSTR, ! Compare the current character position with a string descriptor 
3 (144 0714 EDT$$RPOS : NOVALUE, ! Restore the saved buffer position | 
| 
| 
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EDTSSSAV_BUFPOS : NOVALUE, ! Save the current buffer position 
EDTSSSTR_SEA, 
EDTS$$G_CC_DONE; 


Egy ecvew tuste 
v04-000 


Set to 1 if control C actually aborts something 


ENT : VECTOR, Pointers to user defined entities 
G Leave search at begining if on 

@ NDO, Is search bounded. 

BUF : REF TBCB_BLOCK, The current buffer tbcb 

Current Line buffer 

Current character pointer 


End of current Line pointer 


| 
| 
| 
ABEL | 
SEARCH_LOOP; | 
LOCAL | 

| 


and return not found. 
EDISSRPOS (START_POS) ; 
RETURN (0); 


C 
START_POS : POS_BLOCK, 
STS; 

4 

3 

rs 

4 

4 

4 

4 

4 
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Ph A 
CODD O Doo SANNA AOAAAAPAAAAAMANMAMAMAE RPP 
LSSSLSSR A SSH SA PAN KS SSIS AR AN SSS USAT SS ess sSesss 


Pe Se Be Se Se Se Ge Ge Se Ge Ge Se Se Ge Se Ge Se Ge Ge Se Ge SH Se Ge Ge Ge FH Ge Se Ge Ge Ge Se Se Ge Ge Se Ge Se Ge Se Se Se Os oe Se Se Se Se Os ee BO Se ase Se eeee 


MOVE, 
ore INIT_LEN, 
0734 CP, 
0735 
0736 
0737 
0738 
0739 MOVE = .M; 
0740 '¢ 
158 Remember where we started. 
O78 EDTSSSAV_BUFPOS (START_POS); 
0745 : If searching backward, with search at end, move length of search string back | 
0746 ! before starting, so we won't keep —— the same string! Also, if searching 
t544 forward with search at end, do not move before starting search. 
0749 
0750 IF (.EDT$$G_SEA_BEG EQL 0). 
0751 THEN 
ters 
075 IF (.DIR EQL DIR_BACKWARD) 
0754 THEN 
0755 BEGIN 
0756 
Bee INCR I FROM 1 TO .LEN DO 
$985 IF ( NOT EDTSSCS_LEFT ()) | 
0760 THEN | 
are! se BEGIN 
$768 !' If cursor-position minus pultorsbegiwipet ition is less than. length of 
the ' search string, then search automatically fails. Reposition cursor 
0 
: 


END 
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EDTSCHMFINSTR EDTSCHMFINSTR = search for a specific strin 18-s¢ 1984 23:56:28 AX-11 Bliss-32 V4.0-74 Page 
04-000 EDTSSSTR_SEACMD = search for : specific string 12-88-13 he $3538: 88 LEDT SREICHAF INSTR: BL 1s4 ° 3 
; 20 77 ELSE | 
; 20 18 MOVE = 0; 
: 204 774 | 
; 205 775 2 {4 | 
3 oe B78 Find the prefix of the search string up to the first carriage return. 
; 208 $778 INIT_LEN = 0; 
3 4 144 CP = ADDR; 
; ell $783 WHILE ((.INIT_LEN LSS .LEN) AND CHSRCHAR_A (CP) NEQ ASC_K_CR) DO 
; ie 0788 INIT_LEN = .INIT_LEN + 1; 
; 2) 7 
: 14 784 1+ 
: 215 0785 ! Now, look for the string. 
: 216 0786 le 
i glz 0787 STS = 0; 
; 2 0788 SEARCH_LOOP : - 
; $38 0789 BEGIN 
; 220 0790 : 
3; 6€e) 0791 3 WHILE 1 DO : 
3 $s¢ 4434 4 BEGIN : 
B ee 0793 4 ; 
; 224 0794 4 IF EDTSSCHK_CC () ; 
; 225 0795 4 THEN : 
> 226 0796 5 BEGIN : 
; 2e7 0797 5 STS = 2; ; 
; 228 0798 5 EDT$$G_CC_DONE = 1; 
; 229 0799 5 EXITLOOP; 
; 20 0800 4 3 
3 gs) 0801 4 
; $38 Bane 4 IF .MOVE 
Pe +} 0803 4 THEN 
; 234 0804 4 
: $3, st 2 IF (CIF .DIR EQL DIR_BACKWARD THEN EDTSS$CS_LEFT () ELSE EDTS$$CS_RIGHT ()) EQL 0) THEN EXITLOOP; 
s gor 0807 4 MOVE = 1; 
; $36 0808 4 !+ 
; 239 0809 4 ! Find next occurrence of the initial string. 
: sry 0810 4 !- 
: 241 0811 4 
3 tg pets 5 IF (.EDTS$G_SEA_BNDD EQL 0) 
: & 081 4 THEN 
> 244 0814 4 | 
5 45 bgt? 5 IF (.INIT_LEN NEQ 0) 
$ 28 si8 4 THEN 
: 24 0817 § BEGIN | 
; 48 0818 EDTS$A_CUR_BUF CTBCB_CHAR_POS] = CHSDIFF (.EDTSS$A_LN_PTR, CHSPTR (EDTS$T_LN_BUF)); 
: 2 4 ? IF ( NOT (STS = EDTS$STR_SEA (.ADDR, .INIT_LEN, .DIR))) THEN EXITLOOP; | 
: 392 80 EDTSSGET_TXTLN (); | 
: $34 B54 | 
: 955 B58 oot “a | 
3; 256 4 ! Look for the next carriage return. 
3 ¢or 4 !- 
: 58 0828 4 


war 
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EDTSCHMFINSTR = search for a specific strin 1$-se 1984 23:56:28 AX-11 Bliss-32 V4.0-74 Page 
EDTSSSTR_SEACMD = search for : specific string 14-Sep-19 4 $3:38:$f EDT SREICHAF INSTR: BL 14 3S 
| 
; Z 8 $ WHILE (CHSRCHAR (.EDTSSA_LN_PTR) NEQ ASC_K_CR) DO 
; 261 ie IF (.DIR EQL DIR BACKWARD) 
3 § ? THEN 
> 264 og 4 5 If CHSPTR_EQL (.EDTSSA_LN_PTR, CHSPTR (EDT$$T_LN_BUF)) 
; 3? 8 5 : THEN 
; 4 o8 ; 2 IF EDTS$CS_UP () THEN EDTS$A_LN_PTR = .EDTSS$A_LN_END ELSE LEAVE SEARCH_LOOP 
: 269 0839 4 ELSE 
: 270 0840 4 EDTS$A_LN_PTR = CHSPLUS (.EDTSSA_LN_PTR, -1) 
s ery 41 4 
: 27 OB4g 4 ELSE | 
; ef 0843 4 EDTSSA_LN_PTR = CHSPLUS (.EDT$SA_LN_PTR, 1); 
3: 276 0844 4 
3 275 0845 4 !4 
3 (ar 0846 4 ! Now check to see if the entire string matches. 
yea 0847 4 !- 
; 278 0848 4 | 
; 79 0849 4 IF EDTSSTST_ONSTR (.ADDR, .LEN) 
; 280 0850 4 HEN | 
; 281 0851 5 BEGIN 
; 28 thy > t¢ | 
; 28 0853 5 ! If we have gotten here, the string matched. 
> 284 0854 é !- 
; 285 0855 RETURN (1); 
3; 286 0856 5 END | 
; 287 0857 4 ELSE 
; 288 0858 4 STS = 0; 
; ony 0859 4 
; 290 0860 4 !+ 
; $3! 0861 4 ! If search is bounded, fail if we are on a page mark. 
; 35 0862 4 !- | 
; @ 08635 4 | 
; 294 0864 5 IF (.EDT$$G_SEA_BNDD NEQ 0) 
Poe toe 
3 344 e944 : IF EDTSSTST_ONSTR (CHSPLUS (.EDTSS$A_US_ENT (3], 1), CHSRCHAR (.EDTSS$A_US_ENT (3])) THEN EXITLOOP 
; 299 0869 END; 
; 300 0870 
; 301 0871 END; 
: 308 0ays Si | 
; Ww 7 ! String was not found, reposition. 
: 304 0874 le 
; 305 0875 EDTSSRPOS (START_POS); 
: $06 0876 RETURN (.STS); | 
; 307 0877 END; ! of routine EDTS$STR_SEACMD 
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331 bytes, Routine Base: 


; Routine Size: 
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EDTSCHMFINSTR = search for a specific strin 1b-se -1984 23:56:28 
EDTSSSTR_SEACMD = search for 4 specific string 12-808 -13e $3:38:¢8 
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D 
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79 «1 =!<BLF/PAGE> 
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-000 
08 
09 


Vv 
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Eoreciew insta EDTSCHMFINSTR = search for a apes string 18-sep-19 4 $3:38:68 AX-11 Bliss-32 V4.0-742 Page 
v04-000 EDTSSSTR_SEACMD = search for a specific string 14-Sep-1984 12:22: EDT. SRCICHMFINSTR.BLI;1 
s STi 0880 1 END ! of module EDTSCHMFINSTR 
3 \¢ tte 1 
s 51 882 0 ELUDOM 
3 PSECT SUMMARY 
: Name Bytes Attributes 
: _EDTSCODE 331 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
; Library Statistics 
7 een eee oo pe Symbols ----- me Pages Processing 
s File Total Loaded Percent Mapped Time 
; _$255$DUA28:CEDT.SRCJEDT.L32;1 377 36 9 40 00:00.2 
; _$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 
; COMMAND QUALIFIERS 
Hy Saar eee eee TEAL OPTIMIZE) /NOTRACEBACK/L 181. 195: CHAE INSTR/ORJ=08.)8: CHW INSTR MSRC$: CHMF INSTR.BLI/UPDATE=(ENHS$:C 
Size: 331 code + 0 data bytes 
Run Time: 00:18. 
Elapsed Time: 00; 85° 
Lines/CPU Min: 8 


Lexemes/CPU-Min: 508 
poneey Used: 128 pages 
Compilation Complete 
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